05400	PL1:	MOVE 4,LX
05500		IDIVI 4,=128		;JJJ=L/128
05600		IMULI 4,=128		;JJJJ=JJJ*128
05700		MOVE 7,4
05800		MOVEM 5,N(7)		;FOUND LAST WDCNT.
05900		ADDI 4,=128		; END OF NEXT LOOP
06000		MOVE 5,LX
06100		MOVE	7,N-1(5)	;J=N(L)
06200		AOJ 5,			; (L=L+1)
06300	PL100:	MOVEM	7,N-1(5)	;DO 100 JJ=L,JXXX  (AC4)
06400					;100	N(JJ)=J
06500		CAMGE	5,4
06600		AOJA	5,PL100
06700		JSA	16,FASTOU	;CALL FASTOU(N,512)
06800		JUMP	N
06900		JUMP	4
07000		JSA	16,FINFIL	;CALL FINFIL
07100		SETZM	OUTF		;JJ=0
07200		JSA	16,EXIT		;CALL EXIT
07300	
07400		END